home *** CD-ROM | disk | FTP | other *** search
/ Wonky Flux Batch 2019 02 / Wonky_Flux_Batch_2019-02.zip / Wonky Flux Batch 2019-02 / 092 - EBU.dsk / EXPERIMENTAL / NUMCHEK.bas < prev    next >
BASIC Source File  |  2019-02-17  |  2KB  |  52 lines
  1. 100  REM           /Blank0.j/experimental/numchek<CTRL-J>
  2. 110  DIM N(1000):MX = 63999: GOTO 250
  3. 120  REM 
  4. 130 J = 1
  5. 140 J = 2 *J: IF J < = N  THEN 140
  6. 150  GOTO 190
  7. 160  FOR I = 1 TO N -1:K = 1
  8. 170 X = J +K: IF X < = N  THEN  IF N(K) >N(X)  THEN T = N(K):N(K) = N(X):N(X) = T:K = K -1: IF K  THEN 170
  9. 180  NEXT : PRINT "-"
  10. 190 J =  INT(J/2): IF J  THEN 160
  11. 200  RETURN 
  12. 210  REM 
  13. 220 LC = LC +1: HTAB 5: PRINT LC" ";:L$ = "":L = 0
  14. 230  RETURN 
  15. 240  REM 
  16. 250 D$ =  CHR$(4):B$ =  CHR$(7):Q$ =  CHR$(34):OV =  -1
  17. 260  DEF  FN DIG(C) = C >47  AND C <58:R = 13:S = 32:E = 216
  18. 270  PRINT : PRINT : INPUT "file name: ";F$: ONERR  GOTO 600
  19. 280  IF  LEN(F$)  THEN  PRINT D$"Verify"F$: POKE E,Z
  20. 290  PRINT D$"open"F$: PRINT D$"read"F$
  21. 300  PRINT : PRINT "Line count": PRINT "----------"
  22. 310  REM 
  23. 320  ONERR  GOTO 500
  24. 330  GET C$: POKE E,Z:C =  ASC(C$)
  25. 340  IF L  THEN 390
  26. 350  IF C = S  THEN 320
  27. 360  IF C = R  THEN  GOSUB 220: GOTO 320
  28. 370  IF   NOT  FN DIG(C)  THEN  GOSUB 220: HTAB 11: PRINT "char"C$" Start line; no #.": GOTO 470
  29. 380  REM 
  30. 390  IF  FN DIG(C)  OR C = S  THEN L$ = L$ +C$:L = 1: GOTO 320
  31. 400  REM 
  32. 410 V =  VAL(L$): GOSUB 220
  33. 420  IF V >MX  THEN  HTAB 11: PRINT #"V"IS TO OBIG."
  34. 430  IF V <OV  THEN  HTAB 11: PRINT "#"V"is after #"OV".":N(0) = 1
  35. 440  IF V = OV  THEN  HTAB 11: PRINT "#"V" follows itself."
  36. 450 OV = V:N = N +1:N(N) = V: IF C = R  THEN 320
  37. 460  REM 
  38. 470  ONERR  GOTO 500
  39. 480  PRINT D$"read"F$",f1": POKE E,Z: GOTO 320
  40. 490  REM 
  41. 500  POKE E,Z: PRINT D$"close": IF N <2  THEN 580
  42. 510  REM 
  43. 520  PRINT : PRINT : PRINT "Checking for reppeats--";
  44. 530  IF N(0)  THEN  GOSUB 130:N(0) = 0
  45. 540  FOR I = 2 TO N
  46. 550  IF N(I) = N(I -1)  THEN  PRINT "  ""#"N(I);:N(0) = 1
  47. 560  NEXT : IF N(0) = 0  THEN  PRINT "none";
  48. 570  REM 
  49. 580  PRINT : PRINT "ending....": END 
  50. 590  REM 
  51. 600  POKE E,Z: PRINT : PRINT B$"Can't verify file "Q$F$Q$"."
  52. 700  REM <CTRL-J><CTRL-J>pg # 100 june 87 inCider<CTRL-J>